: 
pares mam ccccceccccce «OL G00 
mate a MMe cccccccccccc LLL DDDDDDDDDDDD RRRRRRRRRRRR 
fe lata ccccccccccec «LLL DODDDDDODODD RRRRRRRRRRRR 000 
MMMMMM =O MMMMMM «CCC LLL DDD DDD RRR RRR 000 
MMMMMM =6OMMMMMM «CCC Lie DDD DDD RRR RRR 000 
MMMMMM 6 MMMMMM «(CCC tel DDD DDD RRR RRR 000 
MMM 6OUMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
MMM 6OMMM OMIM «OCC LLL DDD DDD RRR RRR 000 
M~M 6 6OMMM OMIM OCC LLL DDD DDD RRR RRR 000 
Talal MMM CCC LLL DDD DDD RRRRRRRRRRRR 000 
wren MMM CCC LLi DDD DDD RRRRRRRRRRRR 000 
MMe mmm CCC LLL DDD DDD RRRRRRRRRRRR 000 
pM mmm CCC LLL DDD DDD RRR RRR 000 
fe Mae MMM CCC LLL DDD DDD RRR RRR 000 
mM MMM CCC LLL DDD DDD RRR RRR 000 
Flchd MMM CCC LLL DDD DDD R 000 
fest mMM CCC LLL DDD DDD RRR PRR 009 
Han MMM CCC LLL DDD DDD RRR RRR 000 
MoM pet CCCCCCCCCCCE «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
edad rant CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR 000 
MMM MMM CCCCCCCCCCCC «LLLLLLLLLLLLLLL DDDDDDDDDDDD RRR RRR oye 
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“TENT "O¢+060" 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPRENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TER OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
4 3 NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
emPORaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


4s 
; FACILITY: LPA-11 UTILITY PROGRAMS 


ABSTRACT: 


THIS PROGRAM IS THE LPA-11 MICROCODE LOADER. IT LOADS MICROCODE 
WHEN REQUESTED BY A MAILBOX REQUEST AND RELOADS MICROCODE AFTER 
A POWER RECOVERY. 


ENVIRONMENT: USER MODE 
AUTHOR: STEVE BECKHARDT, CREATION DATE: 4-OCT-78 
MODIFIED BY: 


v02-003 SRB0003 Steve Beckhardt 3-S 
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ep-1980 
Changed microcode goreten number in mode word of initialize 


command from 4 to 


DECLARATIONS 


00001100 
00000008 


00000000 
0000004 
0000005 

00000006 


00000000 
0000000C 


00000014 


0000 
0000 
0000 


00000080 


SoOoooooooooooooooo 


DoOOoOoOOOoOoOoOoOoOoOoOooOO 
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ae a a 


7 
«SBTTL DECLARATIONS 
; INCLUDE FILES: 


ge tpocr 
ADEF 


EQUATED SYMBOLS: 


LKMODE = 1 
LRSTATUS = OY 
EFPRESET = -100 


EVNFND = “0326 
PROTMASK = *X1100 

q Ronmeesis = 8 

BS OFFSETS INTO MAILBOX 
77 MBXSL_TYPE = os 

78 MBX$B-CTRLR 


79 MBXSB~ “CTYPE = ‘, 
, MBXS$WORMBUNIT = 


C 
C 
D 
Dd 
Uy) 


i= 
) 
5 
$i 
: 
1 
: 
6 


5 : OWN STORAGE: 
85° 


: -PSECT _LPASDATA,LONG 
8 CNTRLR_TBL: 

. LONG 
4 LAIOSB: .BLKQ 1 
38 PMBIOSB: 
Be -BLKQ «1 
36 PMBCHAN 
9 woRD 0 
38 RMBCHAN 
9 «WORD 

’ LACHAN 

: INITTBL: 

4 -WORD %*x0500 
5 -BLKW 10 
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; DIB rah 3 
; LPA-11 DEFINITIONS 


SET CLOCK MODE WO 

SET CLOCK STATUS WORD 
DEFAULT CLOCK RATE (1 MHZ) 
DEFAULT CLOCK PRESET 


DEVICE NOT FOUND ERROR (INITIALIZE Q10) 


MAILBOX PROTECTION MASK 
MINIMUM MESSAGE SIZE 


MESSAGE TYPE 

seaorhee tT Lerven 
MICROCODE TYPE 

RETURN MAILBOX UNIT NUMBER 


CONTROLLER TABLE 


; LPA-11 1/0 STATUS BLOCK 


; PERM. MAILBOX 1/0 STATUS BLOCK 


PERMANENT MAILBOX CHANNEL 


; REPLY MAILBOX CHANNEL 


LPA=11 CHANNEL 


gSzaeeeee= 


wn 
m 
_ 


111 
yOse008. DECLARATIONS MerSEE 1 BBe 81:88:82 HARLPRS Rage e, yen OO aks, | Pase 3, 


00000130 196 § DMDT: -BLKB 256 ; DEDICATED MODE DISPATCH TABLE 
1 1 BUFFER FOR CHANNEL CHARACTERISTICS 
900001 5¢ 1 1 BLKB DIBSL_DEVDEPEND+ +4 
¢ c 1 CHANBFRSIZ = .-CHANBFR 
0000015¢ c 1 MBXBFR: .BLKB 32 ; MAILBOX BUFFER 
41 4c 015¢ 11% LANAME : ASCII "LAT 3 LPA-11 DEVICE NAME 
13 115 LACTRLR 
0 015€ 116 * ASCII ‘? ; SPACE FOR CONTROLLER LETTER 
0 O159F 11 .ASCII ‘O° : UNIT ZERO 
00000004 160 118 LANAMESIZ = ,-LANAME 


mn 
yOs-000" DECLARATIONS "BrSep=1 bac 81:83:84 EMC DR smeicALtaoeg mars: 29° (3, 


0000 } «PSECT _LPASCODE ,NOWRT,LONG 
125 PMBNAMDSC: 3 PERMANENT MAILBOX NAME DESCRIPTOR 
£80008 A’ 124 «LONG PMBNAMSIZ 
¢° ! 5 «LONG PMBNAM 
H 1 ; LANAMEDSC: ; LPA-11 DEVICE NAME DESCRIPTOR 
80000006 1 «LONG LANAMESIZ 
¢° ! «LONG  LANAME 
1 131 CHANBFRDSC: ; CHANNEL CHARACTERISTICS BUFFER DESCRIPTOR 
£0880 E 1 1 § «LONG CHANBFRSIZ 
* 001 1 LONG CHANBFR 
Ha: 
01 1 § DEVTBL ; TABLE OF DEVICE ADDRESS FOR INITIALIZE QI10 
F104 001 1 «WORD RITA ed e: ; CLOCK A 
FIIA 1A 4 3 WORD *01704 ; CLOCK B 
£198 % 3} «WORD *017040 3 A/D #1 
Fi 1 140 WORD *017044 ; A/D #2 
Fi 85 141 «WORD apts 8 3 D/A 
EFF 146 «WORD %*01677 ; DIGITAL 1/0 #1 
EFF 026 14 ORD anor 7G8 ; DIGITAL 1/0 * 
EFE 0 $ 144 -WORD %*01677 ; DIGITAL 1/0 # 
EFE 0 145 ORD *016774 : DIGITAL 1/0 #4 
EFD "4 138 WORD %*016773 : DIGITAL I/0 #5 
52 45 44 41 4F 4C 24 41 50 4C 002C 148 PMBNAM: .ASCII ‘LPASLOADER' ; PERMANENT MAILBOX NAME 
Q000000A 0056 149 PMBNAMSIZ = .-PMBNAM 
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* .SBTTL MAIN PROGRAM 
: FUNCTIONAL DESCRIPTION: 


vas 


HIS IS THE MAIN PROGRAM FOR THE LPA-11 MICROCODE LOADER. 

IT PERFORMS SOME eT OT ION, SPECIFIES A Phas i RECOVERY A 1e 
CREATES A MAILBOX, SPECIFIES A MAILBOX AST D THEN HIBERNATES. 

ALL SUBSEQUENT PROCESSING IS PERFORMED IN one OF THE TWO AST ROUTINES. 


; CALLING SEQUENCE : 

ENTERED WHEN PROGRAM IS STARTED 
INPUT PARAMETERS: 

NONE 
OUTPUT PARAMETERS: 

NONE 


ENTRY START,“M<R2,R3,R4,R5> 
; PERFORM INITIALIZATION 


BEEBE EE PMNMNO GD SIM DDI OIAA AAA AA AA AAAAAO 


SOSOCSCSOSOSOSOSOO OOOO OCSCOO SOOO OCOOOOOO OOOO OOOOOOO 
NON es tt ot 


SOOOOOOOOOOOWWDCOCOGOOGDODOONI NIN NIN SNA AA AAAAAAOAIINIUTNIUITU 


=—OODNAME WIN SO ODNAULWN O00 ONOUSWIN—OOONA UE WO OONOUE rn 


0 
OOOOO000'EF 04 3 CLRL NTRLR_TBL : CL EA AR CONTROLLER TABLE 
00000000'EF 0100 8F 28 003 MOVC3 #256, LPASSDMDT,DMDT : COPY DED. MODE DISPATCH TABLE 
00000030' EF 0 4 
0 4 SSETSFM_S #1 : SET SYS. SERVICE FAILURE EXCP. 
5 SSETPRA_S PWRRECAST ; SET POWER RECOVERY AST 
6 ; CREATE A PERMANENT MAILBOX AND MARK IT FOR DELETION TO CLEANUP 
6 IF THIS PROCESS EXITS 
006 écr REMBX_S PRMFLG = #1,- : PERMANENT 
6 6 CHAN = PMBCHAN,- + CHANNEL 
6 MAXMSG = #32,- + MAXIMUM MESSAGE SIZE 
6 BUFQUO = #64.- : BUFFER QUOTA 
6 PROMSK = #PROTMASK,- ; PROTECTION MASK 
0 4 LOGNAM = PMBNAMDSC : LOGICAL NAME 
6 SDELMBX_S PMBCHAN 
94 set UP MAILBOX AST 
94 $olow is FUNC = #10$ SETHODE ! 108M. WRTATIN,- : FUNCTION 
94 CHAN = PROCRAR HANNEL 
094 1 = PMBAST : MAILBOX AST ADDRESS 
0089 - NOW HIBERNATE 
9 $HIBER_S 


PMBAST = MAILBOX AST ROUTINE 


Fh 
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ae .SBTTL PMBAST = MAILBOX AST ROUTINE 

$ FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS THE MAILBOX AST ROUTINE. WAKING UP HERE MEANS 
A PROCESS HAS SENT US A MAILBOX REQUEST TO LOAD SOME MICROCODE. 
THE GENERAL FLOW IS TO READ THE MAILBOX, LOAD THE MICROCODE, 
AND OPTIONALLY SEND STATUS BACK. 

CALLING SEQUENCE: 
CALLS/G FROM AST DISPATCHER WHEN A MAILBOX WRITE OCCURS 

INPUT PARAMETERS: 
NONE 

OUTPUT PARAMETERS: 


NONE 


Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge G1 Ge Ge Ge Ge Ge Ge Se 


ENTRY PMBAST, “M<R2,R3,R4,R5> 


— 
So 
oe 


» ENABLE SYSTEM SERVICE FAILURE EXCEPTIONS 
$SETSFM_S # 
15$: ; READ MAILBOX 
$a10u_s FUNC = #10$_READVBLK!10$M_NOW,- ; FUNCTION 
CHAN = PMBCAAN,- CHANNEL 
10SB = PMBIOSB,- : 1/0 STATUS BLOCK 
P1 = MBXBFR,- : BUFFER ADDRESS 
P2 = #32 : BUFFER SIZE 
CMPW PMBIOSB,S*#SS$_NORMAL ; WAS THERE A MESSAGE THERE? 
BEQL 208 > YES 
: MAILBOX IS EMPTY - REENABLE MAILBOX ASTS AND HIBERNATE AGAIN 
$a10W_s FUNC = #10$ SETMODE! 10$H. WRTATIN, = ; FUNCTION 
CHAN = PMBCAAN,- CHA 
P1 = PMBAST : MAILBOX AST ADDRESS 
RET 
208: HAVE A MESSAGE = MAKE SURE IT'S AT LEAST MINIMUM SIZE 


tMPW  PMBIOSB+2,AMINMSGS12 
BLSSU 158 ; TOO SMALL -IGNORE 


MESSAGE SIZE IS OK = GET LPA CONTROLLER LETTER 
hovzaL MBXBFR+MBXSB_CTRLR,R2 ; GET CONTROLLER LETTER 
MOVB R2,LACTRLR ; STORE I 
DECL ; CONVERT TO BIT NUMBER 
BICB #*XE0,R2 ; FROM O TO 31 
DISABLE SYSTEM SERVICE FAILURE EXCEPTIONS 


$sETSFM. $ 
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vivant PMBAST = MAILBOX AS! ROUTINE ets 8:83:38 ERCLOR SRC LALOADER.MAR; 1 - a 
14 
14 é - ASSIGN A CHANNEL TO SPECIFIED LPA-11 
14 $ASSIGN_S DEVNAM = LANAMEDSC,=  ; DEVICE NAME 
14 ? CHAN = LACHAN 3; CHANN 
3450 €9 ? 4 BLBC ~=—_—«aRO, 508 ; ERROR 
15¢ 6g : GET MICROCODE TYPE AND LOAD MICROCODE 
54 00000141 "EF 9A 1 § 6 MOVZBL MBXBFR+MBXSB_MCTYPE,R4 ; MICROCODE TYPE 
114 9 16 68 BSBW  LOADM + LOAD IT 
50 € 166 $ BLBC ~=—_—«RO,, 40 + ERROR 
169 f : SET APPROPRIATE BIT IN CONTROLLER TABLE 
00 00000000'EF 52. €2 ? , 6BSS RZ, CNTRLR_TBL, 30$ 
171 274 30S: ; START CLOCK AT A DEFAULT RATE 
54 4 9A 0171 275 MOVZBL #DEFCLKRATE,R4 ; DEFAULT CLOCK RATE 
55 FFOC BF OC (C0174)? MOVZWL #DEFPRESET,RS + DEFAULT PRESET 
0200 30 179 , BSBW SETCLOCK : SET CLOCK 
17¢ rg 40$: ; DEASSIGN CHANNEL TO LPA 
7E 50 7D O17¢ 0 MOVa ~—s RO, = (SP) : SAVE STATUS IN RO, R1 
our 1 SDASSGN_S LACHAN 
50 8& 7D 0180 Be MOV ~(SP)+,RO ; RESTORE STATUS 
0190 84 50S: ; OPTIONALLY SEND STATUS IN RO AND R1 BACK TO REQUESTOR 
53 00000142" EF 36 0190 5 MOVZWL MBXBFR+MBXS$W_RMBUNIT,R3 ; GET UNIT # OF RETURN MAILBOX 
40 1 0197 86 BEQL 60% : NO RETURN MAILBOX 
0000013C'EF 50 7D 0199 88 MOVQ = RO, MBXBFR ; STORE STATUS IN BUFFER 
9215 30 1a 290 BSBW ASSIGNRMB ; ASSIGN A CHANNEL TO RETURN MAILBOX 
3350 €9 TAs 31 BLBC ~—. RO, 608 : CAN'T ASSIGN CHANNEL 
DIAG 38 - SEND REPLY 
106-294 $al0w_s FUNC = #10$_WRITEVBLK! 10$M_NOW,- : FUNCTION 
01A6 95 CHAN = RMBCAAN,- 3; CHANNEL 
01A6 «29 P1 = MBXBFR,- : BUFFER ADDRESS 
O1AG 97 P2 = #8 : SIZE OF MESSAGE 
tte 99 SDASSGN_S RMBCHAN ; DEASSIGN CHANNEL TO RETURN MAILBOX 
FEE6 31 0109 300 608 BRW 10$ : DO NEXT REQUEST 


LALOADER 
vO4-000 PWRRECAST = POWER RECOVERY AST ROUTINE 


003¢ 


52.4 
6F OOCOOOOO'EF 52 €1 
53 52 40 8F 89 

53 


D6 
QOOOOISE’EF 53 90 


48 50 €9 


2250 €9 
53 00000138'EF 00 


54 5302 1 Ff 
afl & 
10 50 
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~SBTTL PWRRECAST = POWER RECOVERY AST ROUTINE 


p++ 
4 ; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS THE POWER RECOVERY AST ROUTINE. FOR EACH LPA-11 
CONTROLLER THAT HAS BEEN LOADED BY THIS LOADER (SAVED IN CNTRLR_TBL) 
THIS ROUTINE GETS THE DEVICE CHARACTERISTICS, LOADS THE SAME MICROCODE 
AS WAS LAST LOADED, AND SETS THE CLOCK TO THE LAST CLOCK RATE SET. 


CALLING SEQUENCE: 


CALLS/G FROM AST DISPATCHER WHEN POWER RECOVERY OCCURS 


INPUT PARAMETERS: 


NONE 


OUTPUT PARAMETERS: 


NONE 


.ENTRY PWRRECAST, “M<R2,R3,R4,R5> 
; REENABLE POWER RECOVERY ASTS 
$SETPRA_ PWRRECAST 


$ 
» DISABLE SYSTEM SER. "CE FAILURE EXCEPTIONS 
$SETSFM_S 
CLRL = R ; LOOP COUNTER 
: WAS NEXT CONTROLLER LOADED? 
6BC R2,CNTRLR_TBL,80$ : BR. IF NO 
; YES, CONVERT NUMBER TO CONTROLLER LETTER 
BISB3 #*X40,R2,R3 ; OR IN *X40 
INCL = RB : ADD 1 
MOVB =R3, LACTRLR ; MOVE CONTROLLER LETTER INTO LANAME 
» ASSIGN A CHANNEL TO LPA-11 
$ASSIGN_S DEVNAM = LANAMEDSC,- =; DEVICE NAME 
CHAN = LACHAN : CHANNEL 
BLBC — RO, 80 ; UNABLE’ TO ASSIGN A CHANNEL 
; GET CHANNEL INFO. 
$GETCHN_S PRIBUF = CHANBFRDSC,- ; BUFFER 
CHAN = LACHAN + CHANNEL 
BLBC ~—_- RO, 708 : ERROR 
MOVL § CHANBFR+DIBSL_DEVDEPEND,R3 : GET DEV. DEP. CHARACTERISTICS 


; LOAD MICROCODE 

ExT7v  #LASV MCTYPE ,MLASS_MCTYPE,R3.R4 ; GET MICROCODE TYPE IN R4 
BSBW LOADMC 

BLBC RO, 708 ; ERROR 


Tersee=13 4 01:33:36 aes Macro v04-00 Page (8) 
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4E 59 
4 SET CLOCK RATE 
54 53 03 0 F 024 é Ext7v  #LASV LRATE ,#LASS_RATE ,R3,R4 ; GET CLOCK RATE 
5 EXTV #LA VaPRESET, ALASS -PRESET, R3,R5 ; GET CLOCK K PRESET 

org 6 BSBW SEf CLOCK RATE 

0050 € B 6 BLBC —=_—&RO,, ; Seno 
§ 70%:  $DASSGN_S LACHAN : DEASSIGN CHANNEL 

85 52 20 F2 é 8 80$: AOBLSS #32,R2,10$ ; REPEAT FOR 32 CONTROLLERS 

7 p REENABLE SYSTEM, SERVICE FAILURE EXCEPTIONS 
, , $sets M_S 
79 og RET 
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104 e000 LOADMC = ROUTINE TO LOAD MICROCODE oes 9 23:38 MCLDR.SRCJLALOADER.MAR; 1 a 
ZA +g .SBTTL LOADMC = ROUTINE TO LOAD MICROCODE 
ra f :" FUNCTIONAL DESCRIPTION: 
7A 8 : THIS ROUT INE I$ THE ACTUAL MICROCODE LOADER. IT DOES THE FOLLOWING: 
7A 0: LOADS THE SPECIFIED MICROCODE 
7A 1: 3} STARTS THE MICROPROCESSOR 
7A é ; ) INITIALIZES THE LPA-11. THE INITIALIZE IS REPEATED 
7A : UNTIL THE CORRECT DEVICE CONFIGURATION ON THE LPA'S 
zh 4 BUS IS FOUND. 
gh é ; CALLING SEQUENCE: 
7A 88 : BSBW/B 
7A 9; 
za 30 + INPUT PARAMETERS: 
7A 36 : R4 CONTAINS MICROCODE TYPE TO LOAD: 
027A 393: 1 = MULTIREQUEST MODE 
027A 394: ; = DEDICATED A/D MODE 
0 vA 99 ; = DEDICATED D/A MODE 
0 vA 3 > IMPLICIT INPUTS: 
0 cA i : LACHAN CONTAINS CHANNEL NUMBER OF LPA-11 
027A 401 : OUTPUT PARAMETERS: 
O27A rt : 
027A 403: RO CONTAINS COMPLETION CODE 
07h 40% ; R1 CONTAINS SECOND LONGWORD OF 1/0 STATUS BLOCK ON I/O ERRORS 
03th 406 : COMPLETION CODES: 
027A 407; 
037A 408 : VARIOUS SYSTEM STATUS RETURNS 
8 oA rt ; SS$_BADPARAM IS RETURNED IF R4& DOES NOT CONTAIN A 1,2, OR 3 
027A 411° 
7A aig LOADMC : 
3c s«wBB za 413 PUSHR #*M<R2,23,R4,R5> 
76 415 SEE WHICH TYPE OF MICROCODE IS SPECIFIED IN R4 
50 00009000" EF 3 4s 416 Rov LPA SSHRACODE. RO ; ASSUME MULTIREQUEST MODE 
01 54 «OD 41 a ed R4,#1 : 1S 11? 
iF O13 4g BEQL =-'10$ : YES 
50 00000900" EF 3E 420 MOVAW LPASSADMCODE RO : ASSUME DED. A/D MODE 
02 54 «D1 . an CMPL = RG #2 > 1S 11? 
13 32 4 : BEQL «108 : YES 
50 00009900" EF 3E 0294 426 MOVAW LPASSDAMCODE,RO : ASSUME DED. D/A MODE 
0 4 Di 0298 425 CMPL) «=—soRG #3 : 1S 11? 
13 i 4 6 BEQL «108 > YES | 
AO 4 : ERROR - BAD VALUE | 
50 0000" BF 3c 02A0 4 hovZuL #338. BADPARAM, RO : RETURN STATUS 
8 11 0205 430 15$ 
A? 431 
| 
| 
j 
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ve LOADMC = ROUTINE TO LOAD MICROCODE -SEP-1 1382 8:83:88 MCLOR.SRCJLALOADER.MAR; 1 . (6) 


A? i 10S: RO POINTS TO MICROCODE IMAGE TO LOAD - 00 IT! | 
A $alow W_S UNC = #I0$ LOADMCODE,- ; FUNCTION 
A rh tH HAN = LACHAN, + CHANNEL 
A? 435 10SB = LAIOSB.- : 1/0 STATUS BLOCK 
A? & : = (RO),= + ADDRESS OF MICROCODE 
A? 4 P2 = m2 46,- : SIZE OF MICROCODE IMAGE 
A? : PS =# : STARTING MICRO PC | 
C50 €9 0op0 4 BLBC ~=—_-«aRO,, 15$ : ERROR 
28 00000004 beer £9 Ds 440 BLBC _=LAL0SB,17$ + ERROR 
DA Ase NOW START MICROPROCESSOR 
DA 4 $ai0w_s FUNC = #10$_STARTMPROC,- : FUNCTION 
DA 444 CHAN = LACHAN,= ; CHANNEL 
DA 445 10SB = LAIOSB : 1/0 STATUS BLOCK 
7750 €9 OFF 44g 15$: BLBC  RO,70$ : ERROR 
69 00000004'EF £9 08 447 17$:  BLBC  LAL0SB,60$ + ERROR 
09 449 : NOW INITIALIZE IT 
QOOOOOIC'EF FDOA CE 14 28 0 09 430 MOVC3 #20,DEVTBL,INITTBL+2  ; START WITH ALL 10 DEVICE ADDRESSES 
83 43¢ 20$: $al0w_s FUNC = #10$ INITIALIZE, = ; FUNCTION 
O31 45 CHAN = LACH ; CHANNEL 
0313 454 10SB = tATOSE. = ; 1/0 STATUS BLOCK 
0313 455 Pi = INITTBL,- ; ADDRESS OF INIT. TABLE 
0313 456 P2 = #278 : SIZE OF TABLE 
3650 €9 0340 457 BLBC ~—_ RO, 708 : ERROR 
28 00000004°EF 8 0343 438 BLBS LAIOSB,60$ : SUCCESS! 
03a 460 ; INITIALIZE FAILED = 1S IT BECAUSE OF A BAD DEVICE ADDRESS? 
D6 BF O0000009'EF 91 034A 461 CMPB Ss LAI OSB+5,, #DEVNFND 1S IT DEVICE NOT FOUND? 
i—é 12 0352 46¢ a 608 : NO, ERROR 
327 464 ; HAVE A DEVICE NOT FOUND ERROR - FIND CORRESPONDING ENTRY IN 
34 465 : DEVICE TABLE AND SET IT EQUAL TO -1 
52 D4 4 466 CLRL sR : LOOP COUNTER 
0000001C EF 42 0000000A" EF 8 36 467 30S: CHP LALOS SB+6,INITTBL+2(R2] mm 
Q000001C"EF42 01 AF 64 469 MNEGW #1, INITTBL+2CR2) ; YES = SET TO =1 
AS 1 6C 470 BRB 20$ RET RY INITIALIZE 
E452 OA Fe 36 471 40$:  AOBLSS #10,R2,308 : TRY NEXT ENTRY 
37 138 60$ ; PICK UP 1/0 STATUS BLOCK BEFORE RETURNING 
50 00000004'EF 7D g az MOVa  LAIOSB,RO 
7 47 70S: HAVE STATUS IN RO (AND MAYBE R1 TOU) 
3C BA 79 «47 bop #*M<R2,R3,R4,R5> 
5 0378 478 
| 
| 
| 
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»SBTTL SETCLOCK = ROUTINE TO SET LPA=11 CLOCK 
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;++ 

; FUNCTIONAL DESCRIPTION: 
THIS ROUTINE SETS THE LPA=11 CLOCK TO THE SPECIFIED RATE AND PRESET. 

CALLING SEQUENCE: 


BSBW/B 
INPUT PARAMETERS: 
R4 CONTAINS CLOCK 
R5 CONTAINS CLOCK PRESE 


IMPLICIT INPUTS: 
LACHAN CONTAINS CHANNEL NUMBER OF LPA-11 
OUTPUT PARAMETERS: 


aaa ee 


SNS HAA AAAO AMA KH OMOMOOAOAOAOAAAAAAOAIAOOAOAAAOOOHAOOAOOAO 


Se Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Ge Se Se 


MEAN OOO NAN EWN OOD NAU EWN 3 SD ODNAP UE WIN "0 OO NOE WO 


PVPVLVIVIV IV LV IVIVIUIUSDVIVSVUSUSUSVSVSVUSUSIOSISI SII EB ES ES ES PP PPP PPP EEE 
NRNMNMNNN 3 3 2 3 = | M@QOOOODOODOOCOSO OCCOOO00 0 OO CBW@wmcnccaacc 


0 
0 RO CONTAINS COMPLETION CODE 
3 R1 CONTAINS SECOND LONGWORD OF I/0 STATUS BLOCK ON I/O ERRORS 
037 COMPLETION CODES: 
0 , VARIOUS SYSTEM STATUS RETURNS 
0 7 oo 
037 
037 SETCLOCK: 
50 0141 8F 3C 037 MOVZWL #CLKSTATUS,RO : CLOCK STATUS 
50 03 O01 54 FO 038 INSV RG, #1, #3, RO : INSERT CLOCK RATE 
O38 ; pO IT! 
8 $a10w_s FUNC = #I0$_SETCLOCK,- ; FUNCTION 
B38 CHAN = LACHAN,- 3 CHANNEL 
3 10SB = LAiOSB,- : 1/0 STATUS BLOCK 
038 P2 = #CLKMODE,- : MODE WORD 
38 P3 = RO,- + CLOCK STATUS 
P4 = RS : CLOCK PRESET 
0750 €9 0 A BLBC ~—_ RO, 508 : ERROR 
50 00000004'EF 7D O38 MOVQ  £LAIOSB,RO ; PICK UP 1/0 STATUS BLOCK 
05 50$: RSB 


| 
RATE IN LOW 3 BITS 
SET 
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7 ~SBTTL ASSIGNRMB = ASSIGN A CHANNEL TO RETURN MAILBOX 
"FUNCTIONAL DESCRIPTION: 


THIS ROUTINE ASSIGNS A CHANNEL TO THE RETURN MAILBOX. 
IT ASSIGNS A CHANNEL TO THE NAME MBn WHERE N IS AN INPUT ARGUMENT. 


| 
| 
CALLING SEQUENCE: 
BSBW/B 
INPUT PARAMETERS: 
R3 CONTAINS THE MAILBOX NUMBER TO ASSIGN A CHANNEL TO 
OUTPUT PARAMETERS: 
RO CONTAINS A COMPLETION CODE 
IMPLICIT OUTPUTS: 
RMBCHAN RECEIVES THE CHANNEL NUMBER OF THE CHANNEL ASSIGNED 
COMPLETION CODES: 

THE SAME ONES THAT ARE SUPPLIED BY THE SASSIGN SYSTEM SERVICE 
| 
| 
| 


DOONAN WN OS OONA UNE WN 0 OODNAU EWR OOO NOAUS WOOO 


SSSA AA AAA AA AMI TTT BB EP PLE EE 


ASSIGNRMB: 
PUSHR #*M<R2,R3,R4,R5> : SAVE SOME REGISTERS 
MOVL SP, RS : SAVE STACK POINTER 
; CONVERT NUMBER TO ASCII STRING ON STACK 
10S: CONVERT NEXT DIGIT 
éLRL ; HIGH BITS OF DIVIDEND 
54 53 EDIV. #10, R3,R3,R4 : R3 oR >R 
7E BISB3 #*x$0,R4,-(SP) ; CONVERT TO ASCIi AND PUSH ON STACK 
TSTL 4 + REPEAT 
BNEQ 108 : BR. IF VES 
2 NOW PUSH 'MB' ONTO STACK 
7E hovw #*A'MB',-(SP) 
: NOW BUILD A STRING DESCRIPTOR ON STACK 
53 74 SUBL3 ; OVERALL LENGTH OF STRING 
75 PUSH AB Ge) : PUSH ADDRESS OF STRING 
i: PUSHL > PUSH LENGTH 
, MOVE SP,R4 > RG POINTS TO STRING DESCRIPTOR 
8 NOW ASSIGN THE CHANNEL 
0 SASSIGN N_S DEVNAM = (R4),- : DEVICE NAME 
1 CaAN TS RMBCHAN + CHANNEL 
j MOVL  R5,SP : RESTORE STACK POINTER 
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” Be é ASB. ve scarp orcacanc : RETURN CODE INTRO FROM SASSIGN 
Fe Bo 
se 
F .END —s START 
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$$T1 s $S$_BADPARAM eeeerere 
ASSIGNRMB SS$~ NORMAL eerereee § ¥ 
CHANBFR START 00000036 RG 
CHANBF ROS SYSSASSIGN eereeree 
CHANBFRSI = SYSSCREMBX eererere GX 
CLKMODE = SYSSDASSGN eeterare GX 
CLKSTATUS = Ut 4 Mar eteeeees GX 
CNTRLR_TBL 02 SYSSGETCHN eereeeee GX 
DEF CLKRATE = SYSSHIBER eeererer GX 
DEF PRESET = SYS$Q]0W eeeeeree GX 
DEVNF ND = SYSSSETPRA eeereree 6X 
DEVTBL 03 SYSSSETSFM eeeeeree GX 0 
DIBSL_DEVDEPEND= 

DMDT 0 

INITTBL 

10S"_NOW eeereree x 

1OSM_WRTATIN eeneenee § x 

IOS_INITIALIZE ‘eeeeeee xX 

10$_LOADMCODE eeneeree 8 6X 

10$_READVBLK eeneeeee 8 6X 

10$_SETCLOCK eeneeeee § x 

10$_SETMODE eeneeeee 8 § Xx 

1OS_STARTMPROC eteeeeee 8 X 

10% E K eeeeeree x 


L C 000027A 
LPASSADMCODE seeeeeee 
LPASSDAMCODE eeererer 
LPASSDMD 


LPASSMRMACODE eeeeeere 
*B 8 


Sooooo oOCooo 


<< 


MB Y 
MBXSW"RABUNI T 


AN 
SETCLOCK 


—eeeaeeeee eee - -: ee eee eye eee 
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tere e ne eee remem ewe 


! Psect synopsis ! 


Pema ronan snc aseaas 


PSECT name Allocation PSECT No. Attributes 


Ss . ( -) QO ¢ QO.) NOPIC USR CON LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS ( -) QO1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-LPASDATA 0 bye ( 33 ) § ( §°} NOPIC USR CON REL LCL NOSHR EXE RD wRT NOVEC LONG 
~LPASCODE OOOOSFS ¢ 1011.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC LONG 


pec ee nee ee meme wm ee mee ome a} 


! Performance indicators ! 


tease mse nemo an mane samo mce } 


Phase Page faults CPU Time Elapsed Time 


Initialization 7 0:00:00.10 :00:00.45 
C processing 135 80; 8: g-$8 $90; 04:40 
Pass 170 00: 8: at 0: 88 8 
Ty epi oh PERE LE BBR 
Symbol table output 7 80:09; 8-86 3 383 66 
Psect synopsis output 1 00:00:00.0 0:00:00.0 
Cross-reference output 0 ae $4 S44 00:00:90.00 
Assembler run totals 449 00:00:05.9 00:00:14.87 


The working set Limit was 1200 pages. 

2 bytes (41 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 121 non-local and 20 local symbols. 
9 source Lines were read in Pass 1, producing 26 object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 


Macro Library name Macros defined 
~S255S$DUAZB:(SYSLIBISTARLET.MLB;20 0 mat KE 
235 GETS were required to define 18 macros. 

There were no errors, warnings or information messages. 
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